home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / arc / ViewDIZ.lha / ViewDIZ / C / Rexx? < prev    next >
Text File  |  1997-08-11  |  418b  |  22 lines
  1. ;© 1997 Mikael Lund - for ViewDIZ install script.
  2. ;Check if Rexxserver is active - if not try and start it.
  3. ;Wait approx. 10 secs for result if server isn't running.
  4. failat 21
  5.  
  6. if exists sys:rexxc
  7.     path sys:rexxc add >NIL:
  8. endif
  9. waitforport REXX >NIL:
  10. if not warn
  11.     setenv vd.temp "ACTIVE"
  12.     quit
  13. endif
  14.  
  15. if exists sys:system/rexxmast
  16.     sys:system/rexxmast >NIL:
  17.     if not warn
  18.         setenv vd.temp "ACTIVE"
  19.         quit
  20.     endif
  21. endif
  22.